# autor: Fabiano A. Lima
# Esse arquivo contém o código usado para gera ras tabelas e estimar os modelos.


library(tidyverse)
library(rvest)
library(urltools)
library(lubridate)

source("pesquisador.r", encoding = "utf8")
source("gera_tabela.r", encoding = "utf8")

folha <- folha() 
o_globo <- o_globo()

data_ini <- "01/04/2006"
data_fim <- "31/12/2007"


tbl_citacoes <- readRDS("./data/tbl_citacoes_js_sanguessugas.rds")

tbl_citacoes$Total <- tbl_citacoes$Folha + tbl_citacoes$`O Globo`

gera_tabela_totais(tbl_citacoes)


df_final <- read_csv("./data/sanguessugas_js.csv", col_types = "cccc") %>%
  transmute(
    semana = ymd(Semana),
    operacao = ifelse(Operacao == "<1", 0.1, as.double(Operacao))
  ) 

knitr::kable(df_final, digits = 1, format.args = list(big.mark = ".", scientific = FALSE)) %>%
  kable_styling(full_width = T) 


df_final <- read_csv("./data/satiagraha_sanguessugas_castelo_areia.csv", col_types = "cccc", skip=2) %>%
  transmute(
    data = ymd(paste(`Mês`,"-01")),
    satiagraha = ifelse(`Operação Satiagraha: (Brasil)` == "<1", 0.1, as.double(`Operação Satiagraha: (Brasil)`)),
    sanguessugas = ifelse(`Escândalo dos sanguessugas: (Brasil)` == "<1", 0.1, as.double(`Escândalo dos sanguessugas: (Brasil)`)),
    castelo_areia = ifelse(`Operação Castelo de Areia: (Brasil)` == "<1", 0.1, as.double(`Operação Castelo de Areia: (Brasil)`))
  ) 

knitr::kable(df_final, digits = 1, format.args = list(big.mark = ".", scientific = FALSE)) %>%
  kable_styling(full_width = T) 